Introduce yourself and write a blurb about why you wanted to start this website.
library(ggplot2)
library(tidycensus)
library(tidyverse)
library(mapview)
# Lake County
options(tigris_use_cache = TRUE)
census_api_key("17e59deb2d792b9cc8f347008312d9386d202672")
Lake <- get_acs(state = "IL",
county = "Lake",
geography = "tract",
variables = "B19013_001",
geometry = TRUE)
Lake %>%
ggplot(aes(fill=estimate)) +
geom_sf() +
labs(title = "Census Map of Lake County",
subtitle = "Median Family Income") +
scale_fill_viridis_c()
mapview(Lake, zcol = "estimate", legend = TRUE, layer.name="Median Family Income")
# Cook County
options(tigris_use_cache = TRUE)
census_api_key("17e59deb2d792b9cc8f347008312d9386d202672")
Cook <- get_acs(state = "IL",
county = "Cook",
geography = "tract",
variables = "B19013_001",
geometry = TRUE)
Cook %>%
ggplot(aes(fill=estimate)) +
geom_sf() +
labs(title = "Census Map of Cook County",
subtitle = "Median Family Income") +
scale_fill_viridis_c()
mapview(Cook, zcol = "estimate", legend = TRUE, layer.name="Median Family Income")
Social Change Theories Lecture
CLIF- Recommended Policy Solutions. Policy Brief